home *** CD-ROM | disk | FTP | other *** search
/ Mayo Clinic Family Health…ok (Interactive Edition) / Mayo Clinic Family Health Book Interactive Edition (Interactive Ventures)(Mayo)(1992).BIN / mayo.ms_ / mayo.ms
Text File  |  1992-11-05  |  5KB  |  206 lines
  1. '**************************************************************************
  2. '*                       Mayo Setup installation script
  3. '*       DO NOT MODIFY THIS FILE, IT IS REQUIRED FOR INSTALLATION
  4. '**************************************************************************
  5.  
  6.  
  7. '$DEFINE DEBUG  ''Define for script development/debugging
  8.  
  9. '$INCLUDE 'setupapi.inc'
  10. '$INCLUDE 'msdetect.inc'
  11.  
  12. ''Dialog ID's
  13. CONST WELCOME       = 100
  14. CONST ASKQUIT       = 200
  15. CONST DESTPATH      = 300
  16. CONST EXITFAILURE   = 400
  17. CONST EXITQUIT      = 600
  18. CONST EXITSUCCESS   = 700
  19. CONST APPHELP       = 900
  20. CONST BADPATH       = 6400
  21.  
  22. ''Bitmap ID
  23. CONST LOGO = 1
  24.  
  25. GLOBAL DEST$        ''Default destination directory.
  26. GLOBAL OPTCUR$      ''Option selection from option dialog.
  27.  
  28. DECLARE SUB Install
  29. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  30.  
  31.  
  32. INIT:
  33.     CUIDLL$ = "mscuistf.dll"            ''Custom user interface dll
  34.     HELPPROC$ = "FHelpDlgProc"          ''Help dialog procedure
  35.  
  36.     SetBitmap CUIDLL$, LOGO
  37.     SetTitle "Family Health Disc Setup"
  38.     SetAbout "Family Health Disc", "Copyright (C) 1992 Sony Electronic Publishing"
  39.  
  40.     szInf$ = GetSymbolValue("STF_SRCINFPATH")
  41.  
  42.     IF szInf$ = "" THEN
  43.         szInf$ = GetSymbolValue("STF_CWDDIR") + "MAYO.INF"
  44.     END IF
  45.  
  46.     ReadInfFile szInf$
  47.  
  48.     OPTCUR$ = "1"
  49.     DEST$ = "C:\MAYO"
  50.  
  51. '$IFDEF DEBUG
  52.     i% = SetSizeCheckMode(scmOnIgnore)    '' could use scmOff; def = scmOnFatal
  53.     WinDrive$ = MID$(GetWindowsDir, 1, 1)
  54.     IF IsDriveValid(WinDrive$) = 0 THEN
  55.         i% = DoMsgBox("Windows drive ('"+WinDrive$+"') is not a valid drive.", "DEBUG", MB_TASKMODAL+MB_ICONHAND+MB_OK)
  56.         GOTO QUIT
  57.     END IF
  58. '$ENDIF ''DEBUG
  59.  
  60.  
  61. WELCOME:
  62.     sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
  63.     IF sz$ = "CONTINUE" THEN
  64.         UIPop 1
  65.     ELSE
  66.         GOSUB ASKQUIT
  67.         GOTO WELCOME
  68.     END IF
  69.  
  70.  
  71. GETPATH:
  72.     SetSymbolValue "EditTextIn", DEST$
  73.     SetSymbolValue "EditFocus", "END"
  74. GETPATHL1:
  75.     sz$ = UIStartDlg(CUIDLL$, DESTPATH, "FEditDlgProc", APPHELP, HELPPROC$)
  76.     DEST$ = GetSymbolValue("EditTextOut")
  77.  
  78.     IF sz$ = "CONTINUE" THEN
  79.         IF IsDirWritable(DEST$) = 0 THEN
  80.             GOSUB BADPATH
  81.             GOTO GETPATHL1
  82.         END IF
  83.         UIPop 1
  84.     ELSEIF sz$ = "REACTIVATE" THEN
  85.         GOTO GETPATHL1
  86.     ELSE
  87.         GOSUB ASKQUIT
  88.         GOTO GETPATH
  89.     END IF
  90.  
  91.  
  92.     Install
  93.  
  94. QUIT:
  95.     ON ERROR GOTO ERRQUIT
  96.  
  97.     IF ERR = 0 THEN
  98.         dlg% = EXITSUCCESS
  99.     ELSEIF ERR = STFQUIT THEN
  100.         dlg% = EXITQUIT
  101.     ELSE
  102.         dlg% = EXITFAILURE
  103.     END IF
  104. QUITL1:
  105.     sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfoDlgProc", 0, "")
  106.     IF sz$ = "CONTINUE" THEN
  107.         IF RUN (MakePath(DEST$,"mayo.exe")+" "+"-s"+MakePath(DEST$,"mayop.sys")) > 32 THEN
  108.             UIPopAll
  109.             END
  110.         END IF
  111.         UIPop 1
  112.     ELSEIF sz$ = "REACTIVATE" THEN
  113.         GOTO QUITL1
  114.     END IF
  115.     UIPop 1
  116.  
  117.     END
  118.  
  119. ERRQUIT:
  120.     i% = DoMsgBox("Setup sources were corrupted!", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
  121.     END
  122.  
  123.  
  124.  
  125. BADPATH:
  126.     sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
  127.     IF sz$ = "REACTIVATE" THEN
  128.         GOTO BADPATH
  129.     END IF
  130.     UIPop 1
  131.     RETURN
  132.  
  133.  
  134.  
  135. ASKQUIT:
  136.     sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
  137.  
  138.     IF sz$ = "EXIT" THEN
  139.         UIPopAll
  140.         ERROR STFQUIT
  141.     ELSEIF sz$ = "REACTIVATE" THEN
  142.         GOTO ASKQUIT
  143.     ELSE
  144.         UIPop 1
  145.     END IF
  146.     RETURN
  147.  
  148.  
  149. '*************************************************************************
  150. '** Purpose:
  151. '**     Builds the copy list and performs all installation operations.
  152. '** Arguments:
  153. '**     none.
  154. '** Returns:
  155. '**     none.
  156. '*************************************************************************
  157. SUB Install STATIC
  158.  
  159.     SrcDir$ = GetSymbolValue("STF_SRCDIR")
  160.     CreateDir DEST$, cmoNone
  161.  
  162. '    Delete the MAYO.INI file     
  163.     MayoIniFile$ = MakePath(DEST$,"mayo.ini")
  164. ''''    MayoIniFile$ = GetWindowsDir() + "MAYO.INI"
  165.  
  166. ''''    MayoIniExists% = DoesFileExist(MayoIniFile$, femExists)
  167. ''''    IF MayoIniExists% = 1 THEN
  168. ''''        RemoveFile MayoIniFile$, cmoNone
  169. ''''    END IF
  170.  
  171.     CreateIniKeyValue MayoIniFile$, "Settings", "Initialized", "0", cmoOverwrite
  172.  
  173.     AddSectionFilesToCopyList "Files", SrcDir$, DEST$
  174.     CopyFilesInCopyList
  175.  
  176.     CreateProgmanGroup "Mayo Clinic", "", cmoNone
  177.     ShowProgmanGroup   "Mayo Clinic", 1, cmoNone
  178.     CreateProgmanItem  "Mayo Clinic", "Family Health Disc", MakePath(DEST$,"mayo.exe")+" "+"-s"+MakePath(DEST$,"mayop.sys"), "", cmoOverwrite
  179.  
  180. END SUB
  181.  
  182.  
  183. '*************************************************************************
  184. '** Purpose:
  185. '**     Appends a file name to the end of a directory path,
  186. '**     inserting a backslash character as needed.
  187. '** Arguments:
  188. '**     szDir$  - full directory path (with optional ending "\")
  189. '**     szFile$ - filename to append to directory
  190. '** Returns:
  191. '**     Resulting fully qualified path name.
  192. '*************************************************************************
  193.  
  194. FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
  195.     IF szDir$ = "" THEN
  196.         MakePath = szFile$
  197.     ELSEIF szFile$ = "" THEN
  198.         MakePath = szDir$
  199.     ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
  200.         MakePath = szDir$ + szFile$
  201.     ELSE
  202.         MakePath = szDir$ + "\" + szFile$
  203.     END IF
  204. END FUNCTION
  205.  
  206.